home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 January / Ahoy_Magazine_87-01_1987_Double_L.d64 / Hanger 14 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  158 lines
  1. 1 print"[147]
  2. 2 [151]53282,15:[151]53283,1
  3. 3 [153]"load"[199](8):[151]53280,0:[151]53281,0:[151]53269,0
  4. 4 [153]"loadhanger 14
  5. 5 print"      one moment loading data...":goto121
  6. 6 cd=1:hi=0000
  7. 7 gosub97
  8. 8 gosub91
  9. 9 gosub104:ti$="000000
  10. 10 x[178]0:[151]v,x:y[178]123:[151]v[170]1,y:[151]v[170]21,sp:[129]x[178]1[164]15:[151]2040,254:[151]v,x
  11. 11 [151]2040,255:[130]:z[178][194](v[170]30):z[178][194](v[170]31)
  12. 12 [139]j[167]16
  13. 13 [139]x[177]15[175]([194](56320)[175]4)[178]0[167]x[178]x[171]4
  14. 14 [139]([194](56320)[175]8)[178]0[167]x[178]x[170]4
  15. 15 [139]([194](56320)[175]16)[178]0[167]k[178][194](56320):j[178]1:[151]2040,255:[141]49
  16. 16 [139]x[177]250[167]54
  17. 17 [151]v,x:[151]v[170]1,y
  18. 18 [139]j[167][141]49:[137]22
  19. 19 p[178][194](56320):[139]j[178]0[175](p[175]4)[178]4[175](p[175]8)[178]8[167][151]2040,254:[137]22
  20. 20 [139]a[178]1[167]a[178]2:[151]2040,255:[137]22
  21. 21 [151]2040,254:a[178]1
  22. 22 [145]l[141]25,26,27,28,29,30,31
  23. 23 [139]h[167]64
  24. 24 [137]12
  25. 25 [141]32:[142]
  26. 26 [141]40:[142]
  27. 27 [141]37:[142]
  28. 28 [141]43:[141]32:[142]
  29. 29 [141]32:[141]37:[142]
  30. 30 [141]37:[141]43:[142]
  31. 31 [141]46:[141]32:[141]37:[142]
  32. 32 [139]b[167]34
  33. 33 b[178]1:c[178]255:[151]v[170]2,c:[151]v[170]3,122:[141]75:[151]v[170]21,sp[170]2
  34. 34 c[178]c[171]7:[139]c[179]0[167][151]v[170]21,sp:b[178]0:c[178]255:[151]v[170]2,c:[142]
  35. 35 [151]v[170]2,c:[139][194](v[170]30)[178]3[167]h[178]1:c[178]255:[151]v[170]21,sp
  36. 36 [142]
  37. 37 [153]""[166]18)d$(d):d[178]d[170]do:[139]d[178]6[176]d[178]0[167]do[178][171]do
  38. 38 [139][194](v[170]31)[178]1[167]h[178]1
  39. 39 [142]
  40. 40 [139]j[167][142]
  41. 41 [139](x[177]87[175]x[179]106)[176](x[177]144[175]x[179]161)[176](x[177]196[175]x[179]219)[167]h[178]1
  42. 42 [142]
  43. 43 [139]j[167][142]
  44. 44 [139](x[177]97[175]x[179]124)[176](x[177]170[175]x[179]196)[167]h[178]1
  45. 45 [142]
  46. 46 [139]j[167][142]
  47. 47 [139](x[177]87[175]x[179]106)[167]h[178]1
  48. 48 [142]
  49. 49 y[178]y[171]u:[139]y[179]111[167]u[178][171]u
  50. 50 [139]y[177]123[167]y[178]123:j[178]0:u[178]3:[142]
  51. 51 [139]x[177]15[175](k[175]4)[178]0[167]x[178]x[171]2.5:[142]
  52. 52 [139](k[175]8)[178]0[167]x[178]x[170]2.5
  53. 53 [142]
  54. 54 po[178][181](1000[171](ti[173]2)):[139]l[178]7[167]88
  55. 55 [151]v[170]21,sp
  56. 56 [129]i[178]1[164]4:[151]2040,254:[129]j[178]123[164]113[169][171]1:[151]2040,255:[151]v,255
  57. 57 [151]v[170]1,j:[130]:[141]76:[129]j[178]113[164]123:[151]v,255:[151]v[170]1,j:[130]:[130]:x[178]x[170]255
  58. 58 [151]v[170]16,5:[129]i[178]1[164]75:[151]v,i:[151]v[170]1,123:[151]2040,255:[151]2040,254:[130]
  59. 59 [151]v[170]21,0:[151]v[170]16,4
  60. 60 [153]"load":le[178]le[170]1:l[178]l[170]1:[139]l[177]7[167]l[178]1
  61. 61 j[178]0:[139]po[179]0[167]po[178]0
  62. 62 sc[178]sc[170]100[170]po:[139]sc[173]1000[178]([181](sc[173]1000))[167]li[178]li[170]1:[141]86
  63. 63 [129]i[178]1[164]500:[130]:[137]9
  64. 64 so[178]155:[151]v[170]21,sp:[151]2040,255
  65. 65 [151]v[170]1,y:y[178]y[170]3:[139]y[177]255[167]68
  66. 66 [151]s[170]4,32:[151]s[170]5,10:[151]s[170]6,1:[151]s[170]4,129:so[178]so[171]2:[151]s[170]1,so:[151]s,so
  67. 67 [137]65
  68. 68 li[178]li[171]1:[139]li[179]0[167][151]v[170]21,12:[137]70
  69. 69 h[178]0:j[178]0:[141]86:[137]10
  70. 70 g$[178]"revo  emag":[129]i[178]1[164]10
  71. 71 [129]j[178]1[164](24[171]i):[153]""[163]j)" "[202](g$,i,1);:[130]:[130]
  72. 72 [129]i[178]1[164]2000:[130]:[151]v[170]21,0:[153]"load":[129]i[178]1[164]500:[130]
  73. 73 [139]sc[177]hi[167]hi[178]sc
  74. 74 [137]7
  75. 75 [151]s[170]4,128:[151]s[170]5,12:[151]s[170]6,10:[151]s[170]4,33:[151]s[170]1,2:[151]s,2:[142]
  76. 76 [151]s[170]4,16:[151]s[170]5,12:[151]s[170]6,10:[151]s[170]4,33:[151]s[170]1,05:[151]s,200:[142]
  77. 77 [153]"";
  78. 78 a$[178][202]([196](sc),2,[195]([196](sc))):sc$[178][200]("000000",7[171][195]([196](sc)))
  79. 79 sc$[178]sc$[170]a$:[153][166]7);sc$
  80. 80 [153]"";
  81. 81 a$[178][202]([196](le),2,[195]([196](le))):le$[178][200]("000",4[171][195]([196](le)))
  82. 82 le$[178]le$[170]a$:[153][166]22);le$
  83. 83 [153]"";
  84. 84 a$[178][202]([196](hi),2,[195]([196](hi))):hi$[178][200]("000000",7[171][195]([196](hi)))
  85. 85 hi$[178]hi$[170]a$:[153][166]34);hi$:[142]
  86. 86 li$[178]"str$ str$ str$
  87. 87 print""left$(li$,li*2)"              ":return
  88. 88 pokev+21,sp:pokev+1,123:fori=1to5:forx=20to30step.5:pokev+8,x:next
  89. 89 gosub76:forx=30to20step-.5:pokev+8,x:next:gosub76:next:sc=sc+2000
  90. 90 pokev+21,0:goto60
  91. 91 ts=1:gosub104:pokev+21,12:print""tab(9)"   h a n g e r   1 4
  92. 92 [141]77
  93. 93 [129]xl[178]1[164]1000:[130]
  94. 94 [153]"      press fire button to begin  
  95. 95 if(peek(56320)and16)=0thenpokev+21,0:print"[147]":fori=1to500:next:return
  96. 96 goto95
  97. 97 v=53248:x=0:y=123:pokev,x:pokev+1,y:l=1:le=1:sc=0:li=2:a=1:do=1:j=0:u=3
  98. 98 b=0:h=0:c=255:sp=13
  99. 99 p$="    [157][157][157][157]    [157][157][157][157]    [145][145]
  100. 100 d$(1)[178]"asccmd cmd cmd cmd ":d$(2)[178]"valcmdasccmd cmd cmd ":d$(3)[178]"valcmdvalcmdasccmd cmd 
  101. 101 d$(4)="[197][157][197][157][197][157][198][157] ":d$(5)="[197][157][197][157][197][157][197][157][198]
  102. 102 h$[178]"         h a n g e r   1 4        
  103. 103 s=54272:fori=stos+23:pokei,0:next:pokes+24,15:return
  104. 104 w$="[151][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194][193][194]
  105. 105 w1$[178]"pokepeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatnpeekatn
  106. 106 print"[147]"w$;w1$;w$"";w$;w1$;w$;w1$;w$;w1$;w$;w1$
  107. 107 print"       [157][157][157][157][157][157][157]       [157][157][157][157][157][157][157]       
  108. 108 [153]"score:         level:       hsc:
  109. 109 ifts=1thents=0:return
  110. 110 print""tab(9)"   h a n g e r   1 4
  111. 111 cd[178]cd[170]1:[151]53282,cd
  112. 112 [145]l[141]113,114,115,116,117,118,119:[141]77:[141]86:[142]
  113. 113 sp[178]13:[142]
  114. 114 [153]""[166]10)p$[166]3)p$[166]3)p$:[142]
  115. 115 [142]
  116. 116 [153]""[166]12)p$[166]5)p$:[142]
  117. 117 [142]
  118. 118 [153]""[166]12)p$[166]5)p$:[142]
  119. 119 [153]""[166]10)p$:[151]v[170]16,20:sp[178]29:cd[178]2:[142]
  120. 120 [128]
  121. 121 [151]52,48:[151]56,48:[156]:[151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251
  122. 122 [129]i[178]0[164]511:[151]12288[170]i,[194](i[170]53248):[130]:[151]1,[194](1)[176]4
  123. 123 [151]56334,[194](56334)[176]1
  124. 124 [151]53272,([194](53272)[175]240)[170]12:[151]53270,216
  125. 125 [129]i[178]0[164]47:[135]q:vu[178]vu[170]q:[151]12808[170]i,q:[130]:[139]vu[179][177]3518[167][137]156
  126. 126 q[178]0:[129]i[178]255[164]250[169][171]1:[129]j[178]0[164]62:[135]q:[151]i[172]64[170]j,q:fv[178]fv[170]q:[130]:[130]
  127. 127 [139]fv[179][177]17595[167][137]157
  128. 128 v[178]53248:[151]v[170]4,25:[151]v[170]5,97:[151]v[170]16,20:[151]v[170]40,5:[151]v[170]41,15
  129. 129 [151]v[170]42,2:[151]v[170]43,7:[151]v[170]6,36:[151]v[170]7,172:[151]v[170]8,20:[151]v[170]9,117
  130. 130 [151]v[170]23,0:[151]v[170]29,9:[151]2040,255:[151]2041,253:[151]2042,252:[151]2043,251
  131. 131 [151]2044,250:[137]6
  132. 132 [131]170,149,149,149,149,149,149,128
  133. 133 [131]170,84,84,84,84,84,84,0
  134. 134 [131]0,0,0,0,0,0,0,0
  135. 135 [131]16,56,16,120,88,72,120,48
  136. 136 [131]66,66,66,66,66,66,66,66
  137. 137 [131]66,66,66,66,66,66,66,126
  138. 138 [131]0,20,0,0,30,0,0,56,0,0,56,0,0,30,0,0,12,0,0,30,0,0,55,0,0,119,0,0,115
  139. 139 [131]0,0,62,0,0,4,0,0,10,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  140. 140 [131]0,0
  141. 141 [131]0,10,0,0,30,0,0,56,0,0,56,0,0,30,0,0,12,0,0,30,0,0,55,0,0,111,0,0,119
  142. 142 [131]0,0,62,0,0,8,0,0,20,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  143. 143 [131]0
  144. 144 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,17,16,42,170
  145. 145 [131]170,4,68,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  146. 146 [131]0,0,0,0,20,0,0,8,0,0,8,0,0,8,0,0,8,0,0,8,0,0,20,0,0,34
  147. 147 [131]0,7,255,224,15,255,240,15,0,240,14,0,112,14,0,112,14,0,112,14,0
  148. 148 [131]112,7,0,224,3,129,192,0,0,0,0,0,0,0,0,0
  149. 149 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,28,166,192
  150. 150 [131]127,255,254,255,255,255,146,73,37,255,255,255,255
  151. 151 [131]255,255,192,127,255,213,127,255
  152. 152 [131]215,127,255,209,124,33,192,124,33,255,252,169,255,252,33
  153. 153 [131]0,24,0,0,60,0,0,126,0,0,255,0,1,231,128,3,195,192,3,195,192,3,231,192
  154. 154 [131]3,255,192,3,255,192,3,36,192,3,36,192,3,32,192,3,32,192,3,60,192,3,60
  155. 155 [131]192,3,255,192,3,255,192,0,60,0,1,255,128,7,255,224
  156. 156 [153]"loaderror in data statements 132-137":[128]
  157. 157 [153]"loaderror in data statements 138-"
  158.